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title pliS$getfile - pll runtime get file 
ident Fi-0 837 . . 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


FTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sor ace 
ROTO e kk WITH THE TERMS OF SUCH beces SE_ AND WITH THE 
ON THE ABOVE ay peaurs NOTICE. THIS SOFT WARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ethetee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


IGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
OFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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facility: 
VAX/VMS PL1 runtime Library. 
abstract: 


This module contains the pl! runtime routine for initializing 
the runtime system to perform a get from a pil stream file. 


author: c. spitz 4-oct-79 
modified: 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 
1-003 Chip Nylander 08-August-1983 


Initialize the parent pointer with FP when stream block 
allocated. 
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| 
209 28 ; external definitions 
09 60 $deffcb sdefine file control block 
0 61 $defstk tdefine stack frame offsets 
B38 ¢ $defstr sdefine stream block offsets | 
00 6 $defdat tdefine operand node data types 
bo8 64 Srabdef tdefine rms rab offsets 
000 65 $fabdef idefine rms fab offsets 
0000 66 Srmsdef idefine rms error codes | 
0000 67 
0000 68 ; d 
44 9? ; local definitions 
000 0; 
0000 71 
0000 72 rtshare ;sharable 
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+ 
pli$getfile_r6 -- get elements from a stream file 


Ooo 


Oooo 


functional description: 


This routine initializes the runtime system to perform a GET statement. 

the get statement is compiled into code that sets up the parameters to 

this routine, and then jsb's to it. this routine opens the file if necessary, 
allocates a buffer for the file, allocates and initializes a stream block for 

the GET statement, processes any options specified in the GET statement and 
returns to the inline code. 
following the jsb in the inline code, the compiler has generated code 
that stores the address and size of the next element in r0 and ri. the 
inline code then jsb's to the routine in the pli$getedit or pli$getlist 

modules that processes elements of that data type. 
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74 
o? 
00009 
Boo 4: 
000 7 
id 80 
000 f 
0000 ¢ 
0000 8 
0000 84 
44 HA 
000 § 
0000 8 
0000 88 
0000 89 
0000 90 ; inputs: 
0000 91 ap - address of file control block 
0000 38 (sp) - address of first element inline code 
0000 9 r0 - address of skip option (number of skips) 
0000 94 ri - address of the compiled format (getedit) or 0 (getlist) 
0000 95 A = no_echo O=off 
0000 96 r3 - no_filter O=off | 
0000 97 r4 - address of prompt 
0000 98 r5 = purge_type_ahead O-=-off 
0000 99 ; outputs: 
0000 100 rill = address of the stream block for this get statement 
0000 101 ; side effects: 
0000 8 7 is preserved 
0000 10 r0-r6 are destroyed 
0000 104 ;-- 
0000 105 -enabl sb 
0000 106 : 
0000 107 pli$getfile_ré:: 
0000 108 ; ; 
0000 109 ; open file if nec 
0000 110; 
7E 50 7D Bos 111 mova r0,-(sp) zsave skip and format 
1E OC AC O01 EO 000 ie bbs #atr_v_opened, fcb_l_attr(ap),10$ ;if file open, cont 
00000840 8F DD 0008 11 pushl #<atr_m_stream+atr_m_input> ;request stream and input 
5C DD QOOE 114 pushl 38 : set fcb | 
00000000'GF 02 FB 0010 115 calls #2,g*pliSopen zyopen the file 
OA 0C AC O01 €0 Q0O17 116 bbs #atr_v_opened, fcb_l_attr(ap),10$ ;if file opened, cont 
50  00000000'8F 0 pate 117 mov L #pli$_dpen,r0 sset open failure 
0191 1 002 118 brw ail zand fail 
0026 119; : s 
b05¢ 1sy 3; check file attributes | 
OA OC AC 03 E3 0026 133 10s: bbcs #atr_v_recur,fcb l_attr(ap),20$ ;if illegal recursion 
50 00000000'8F B0 Bos 1 movl #pli$_fecursio,r0 ;set recursive i/o 
1 1 8 124 brw a i sand fail 
6D O1AE CC 9E 003 125 20$: movab fcb_l_condit(ap).(fp) ;set condition handler address 
OA OC AC 36 E0 Bose 1 § bbs Matt v_input,fcb l_attr(ap),40$ if input, cont 
50  00000000' 8F 0 O3F 127 308: mov | #pli$_notinput,r0 :set not input fie 
016E 1 0046 128 rw fail jand fail | 
OA OC AC ge EQ 0049 129 40$: bbs #atr_v_stream,fcb l_attr(ap),50$ ;if stream, cont 
50 00000000'8F D0 O04E 130 mov | #pli$_notstream,r0 zsset not stream file 
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ee tii . ae 05:90:98 PLIRTL.SRCJPLIGETFIL.MAR; 1 . 
O1SF = ss31 ; } 1 brw fail sand fail 
2 ! ; allocate buffer if needed 
14 AC DS 0058 135 508: tstl  feb_l_buf ap) sbuffer already allocated? 
3 12 0058 1 § bneq 80$ if neq, xgs- cont 
03 OC AC 1 —1 005D 1 bbc #atriv gopcomma. feb t_acte cag’ 6 $ ;if append comma 
A AC 6 poe 138 incw fcb_w_Tinesize(ap) jadd 1 to buffer size 
7E A AC C 006 139 60S: movzwl fcb_w_Linesize(ap) ,-(sp) gget size of a Line 
0082 cc =66E )«=6BO (0069 = 140 movw  (sp),<fcb_b_rab+rab$w_usz>tap) ;set it in rab 
5E dD 006 141 pushl sp spush addr of temp 
04 A DF Bee 126 pushal 4(sp) spush addr of size 
Q00000000'GF 0 FB 7 14 calls #6 og tibsget_vm get buffer 
OA 5 E8 OO7A 144 blbs r0 if lbs, then cont 
50 00000000'8F 00 O007D 145 movl #pli$_novirmem,r0 set no virt mem 
0130 31 0084 146 brw fail sand fail 
50 8EDO 0087 147 708: popl rd :get buffer addr 
14 AC 50 00 QOBA 148 mov l r0,fcb_l_buf (ap) store addr of buffer in fcb 
1¢ AC} 3=6©50~—~—s00 443 149 mov l r0,fcb_l_buf_pt(ap) zinit buf pointer 
18 AC 50 d0 009 150 mov r0,fcb_l_buf_end(ap) zsinit buf end 
0086 cc 50 00 43 13] mov L r0,<fcb_B_rab+rab$l_ubf>(ap) ;store in rab too. 
Boee 138 3; set locate mode if not app_comma 
66 AC 00010000 8F CA 0098 155 80s: bicl #rab$m_loc,<fcb_b_rab+rab$l_ro >ioe) ;clear locate mode 
0 AC 15 €1 QOAS 156 bbc #atr_v_app_comma,?cb_l_attrtap),90$ ;if not app_comma, cont 
66 AC 00010000 8F C8 Beas 13 bisl #rab$m_loc,<fcb_b_rab+rab$l_rop>(ap) ;set locate mode 
00B0 159 ;allocate a stream block 
00BO0 160 ; 
50 8& 7D 0080 161 90S: movq (sp)+,r0 zsrestore skip and format 
56 8EDO 0083 196 pop} ré6 save return address 
5E 00000C08 8F C2 O00B6 16 subl #str_c_len,sp salloc space for stream block 
B SE 00 QOOBD 164 mov | sp.r sset address of stream block — 
14 AB 0408 CB 9E Rpg 192 movab str_l_stack_end(r11),str_l_fld_end(ri1) ;set end of field 
00C6 167 ; initialize format stack 
00C6 168 ; 
08 AB 5D dO O0C6 169 mov fp,str_l_parent(r11) sset default parent pointer 
04 AB 51 00 OOCA 170 movl ri,str_l_fp(ri1) zset address of format pointer 
04 13 QOCE 171 beql 95$ sif eql, cont 
Oc AC 04 CA 0Q0D0 Ze bicl #atr_m_comma_exp,fcb_l_attr(ap) ;clear comma expected if edit 
0c04 CBE OdS1)=— 0s 00D4-S «173-958: = move—srr'1, stril_stack(r{1) : copy format pointer to stack. 
6B 0C04 CB 9E 00D9 174 movab str_l_stack(r11),str_l_sp(rll) ;store format stack pointer 
OC AB D4 Bape 172 clrl str_l_fs(ri1) init status 
BoE} \7e 3: set all options except prompt and skip 
51 66 AC 9E OQOE1 179 movab <fcb_b_rab+trab$l_rop>(ap).rl ;get addr of rop | 
61 16FFFSFF 8F CA OOES 180 bicl #*c<Fab$m_cco!rab$m_eof! - ;clear unused bits in rop 
OPEC 181 rab$m_pmtTrab$m_ptatrab$m_rah! - ; 
OEC 182 ; rab$m_rneirab$m—rnfirab$m_wbh>, (ri) ; 
61 01 18 3¢ FO BRE S + insv r2,#rab$v_rne,#T,(ri)  ;Set read no echo 
61 ae. Boe FO OOF1 184 insv r5,#rab$v_rnf,#1,(r1) set read no filter 
61 Of WW 35 FO pee 133 insv r5,#rab$v_pta,#1,(r1)  ;set purge type ahead 
OOFB 189 : process skip and prompt options. skips turn into a read with prompt where 
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1S008 . e or Seen15ks $1:8R553 EPCIRTE SAEDPLIGETFILAMAR:1 @!° (4), Ta 
OFB 188 ; the prompt is a <cr><lf>. if a positive number ‘iio was specified, we 
th 4 ; will do n=1 skips before we do the user speci tied” prompt (if any). this re- 
FB 190 ; quires us to append the users prompt to the <cr><lf> for the Last skip. if 
OFB 191; no wy was specified, but a prompt was specified, we will use the users 
OFB 135 3; prompt as is. note that prompting always forces a get, so that whatever is 
Oeee 193 ; eft. in the buffer from the last get statement is lost. 
SOR 198 
18 AB QOQOOAOD BF 00 bore 136 100$: movl #*x0a0d,str_b_field(r11) rhe ty to prompt with <cr><Lf> | 
0096 cc 02 90 319 19 movb #2, <feb. b_rab?rab$b_ rr; Ht sset size in rab 
0092 CC 18 AB 9E 0108 198 movab str_b tretgtrtt), <ft + = ;set prompt addr 
BIRe 199 , rab$l- ~pb4> cap) rab 
66 AC 40000000 8F C8 OQI10E 00 bisl #rab$m_pmt, <tcb_ b_ earl _rop>(ap) zset to prompt in rab | 
52.50 0 0116 01 mov r0,r2 3 copy skip addr 
is 13 0119 ¢ beql 115$ sif eql, then no skip 
=m. § 32 0118 0 cvtwl = (r2),r2 get number to skip 
OA 14 OIE 04 bgtr 1 gtr, cont 
50 Q0000000'8F 00 b1$9 05 movl #pli$_invskip,r0 jset invalid skip 
008D 31 0127 06 brw fail and fail 
02 0c AC 19 +€1 OQ12A 207 1108: bbc fatr _vuvirgin, fcb_l _ottrtep). 1158 if virgin 
52 06 Sig 208 incl re :do an extra skip to get first record 
OC AC 00040000 8F CA 0131 209 115$:  bicl #atr_m_currec,fcb_l _attr(ap) iclear currec in fcb to do skips 
54 D5 0139 210 tstl r4 sprompt specified? 
55 13 0138 211 beql 160$ if eql, then not there, cont 
» &. i. 2 aS si¢ movzwl (r4),r1 et length 
50 13 0140 = 21 beql 160$ f eql, then ignore it 
OOOOOOFD BF 51 D1 0142 214 cmpl r1,#253 zis it too big? 
OA 15 0149 215 bleq 120$ tif leq, no, cont 
50 00000000°8F D0 0148 216 mov l #pli$_promptobig,r0 iset prompt too big 
one oy OiSe. oats brw fail zand fail 
5 DD 0155 218 120$: pushl re save number of shige 
10 AB 51 «00 0157 219 movl str_l_fld_pt(r11) ‘save size of prompt 
1A AB 64 84 28 O15B 220 move (rd) )+,UrS),str_b_field+2(r11) scopy presets te tf field 
52 8ED0 0160 221 pop! srestore number of skips 
19 14 0163 222 gtr ‘eos a ens do n-1 with our prompt 
0092 CC 1A AB YE 0165 223 movab str_b OA ot athe <fcb_ i rab+ = ;no skips, so set his prompt 
0168 224 rabsi ~pbf>(ap) addr in rab | 
0096 cC 10 AB 90 O16B8 225 movb str_\"fld rattrtt), <fcb_ b. rab+ - ;set size of users prompt | 
0171 226 rabsb> ~psz>(ap) rin ra 
1 11. Q171 27 brb 150 do _the promp 
33 OC 00 €0 0173 28 130$: bbs be SB eof, fcb_l _attr(aps, 176$ At mf signal endfile 
00000500" + 16 0178 $3 jsb 9*plTsSoet_ rec :$kip a record 
F F5 O17E 0 140$:  sobgtr r2,130$ :if skips left, do them 
0096 CC 10 AB 80 0181 4 add str_l_fld ghttert? <fcb_b. Sage - ;add size of peers prompt 
0187 ; rab$b_ <PS2? (ap) promes size in 
1F OC AC 00 EO 0187 150$: bbs Watr_v eof, fcb_l _ettrtap) 17 if eof, signal endfile 
00000000'GF 16 p186 4 jsb 9 splisSget. rec” :Skip a record 
F F4 136 5 160$: sobgeq r2,1 process skips 
66 AC 40000000 8F CA 019 6 bic EO hy _pmt,<fcb_b_ rab+rab$l rop>(ap) ;clear prompt in rab 
Of AC 00040000 8F C8 B10 7 bisl #atr_m_currec,fcb_l_attr(ap) ;set currec to turn off skipping 
Oc AC O08 CA BIA 3 bicl #atr_m_recur, tcb_ T_attr(ap) ;clr recursive flag 
Bag 9 ; ‘return’ jump back to main Line code 
66 «(17 sig g ; jmp (r6) return to user 
5C DD O1AB 44 170$: pushl = ap set fcb addr 
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;set no error code 
sset endfile condition 
ssignal the condition 


sset fcb addr 

sset error code 

iset error condition 

sremove the handler in this frame 


isi nal the error 
sreturn 
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VIRGIN 
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ATR 
ATR 
ATR 
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ATR 
ATR 
ATR 


The working set Limit was 1050 pages. 

39656 bytes (78 pages) of virtuel memory were used to buffer the intermediate code 

There were 40 pages of symbol table space allocated to hold 712 non-local and 56 local symbols. 
261 source Lines were read in Pass 1, producing 11 object records in Pass 2 

17 pages of virtual memory were used to define 15 macros. 


ey 


Se Om RE Om RO meme et 


Macro Library name Macros defined 
-$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLB; 1 5 
“$255$DUA28: CSYSLIBISTARLET. MLB; 2 7 

TOTALS (all Libraries) 12 


739 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=TRACEBACK/LIS=LIS$:PLIGETFIL/OBJ=OBJ$:PLIGETFIL MSRCS$:PLIGETFIL/UPDATE=(ENH$:PLIGETFIL)+LIB$:PLIRTM 
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Psect synopsis : ’ 71984 4: $3: 3 PLIRTL.S REIP ~IGETFIL.MAR;1 oe (1) | 

Oe ee me oe + 

! Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
» 6 00000000 ( 9.) 90 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS FFFFFFFC 0°) ( 1.) NOPIC USR CON ABS LCL NOSHR' EXE RD NOVEC BYTE 
_PLISCODE 000001CF 463.) 3 ( 2.) PIC USR CON REL LCL SHR- €EXE~ RD NOWRT NOVEC LONG 

te wen ecm en seen eer een anno cees 
! ;_Per formance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization ) 00:00:00.04 00:00:00.82 
ee processing 67 00:00:00.52 O88 189-08 
214 §0:00:07.26 ib Be 15 

eB table sort 0 00:00:00.82 00:00:02.14 
Pass 2 57 00:00:01.36 00:00:04.71 
Symbol table output 11 00:00:00.09 00:00:00.11 
Psect synopsis output 2 00:00:00.03 00:00:00.03 
Cross-reference output 0 B23 83798 -09 00:00:00.00 
Assembler run totals 360 00:00:10.1 00:00:31.96 
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